home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / admin_luRegions.asp < prev    next >
Encoding:
Text File  |  2002-03-12  |  10.0 KB  |  382 lines
  1. <!-- #include file="i_utils.asp" -->
  2. <%
  3.  
  4. check_security(1) 
  5.  
  6. %>
  7. <%
  8.     dim Image
  9.     dim Notice
  10.     dim Region
  11.     dim RegionID
  12.     dim edit_luregions_sql
  13.     dim view_luregions_sql
  14.  
  15. sub request_edit_luregions
  16. ''' request expected input parameters for this form
  17.     Image = request("Image")
  18.     Notice = request("Notice")
  19.     Region = request("Region")
  20.     RegionID = request("RegionID")
  21. end sub
  22. sub request_view_luregions
  23. ''' request expected input parameters for this form
  24.     Image = request("Image")
  25.     Notice = request("Notice")
  26.     Region = request("Region")
  27.     RegionID = request("RegionID")
  28. end sub
  29.  
  30. sub validate_edit_luregions
  31. ''' request and validate data entered from this form
  32.     Image = trim(request("Image"))
  33.     Notice = trim(request("Notice"))
  34.     Region = trim(request("Region"))
  35.     RegionID = trim(request("RegionID"))
  36. end sub
  37. sub validate_view_luregions
  38. ''' request and validate data entered from this form
  39.     Image = trim(request("Image"))
  40.     Notice = trim(request("Notice"))
  41.     Region = trim(request("Region"))
  42.     RegionID = trim(request("RegionID"))
  43. end sub
  44.  
  45.  
  46. sub db_select_edit_luRegions
  47.     sql = "SELECT " & _ 
  48.     "Image, " & _ 
  49.     "Notice, " & _ 
  50.     "Region, " & _ 
  51.     "RegionID FROM luRegions" & _ 
  52.     " WHERE " & _ 
  53.     "luRegions.RegionID = " & to_sql(RegionID,"number") & ""
  54.     on error resume next
  55.     set rs = cn.Execute(sql)
  56.     if err.number <> 0 then
  57.         b_error = true
  58.     elseif rs.EOF then
  59.         b_results = false
  60.     else
  61.         Image = rs("Image")
  62.         Notice = rs("Notice")
  63.         Region = rs("Region")
  64.         RegionID = rs("RegionID")
  65.     end if
  66.     rs.Close
  67.     on error goto 0
  68. end sub
  69. sub db_insert_edit_luRegions
  70.     sql = "INSERT INTO luRegions" & _ 
  71.     "(" & _ 
  72.     "Image," & _ 
  73.     "Notice," & _ 
  74.     "Region" & _ 
  75.     ") VALUES (" & to_sql(Image,"text") & "," & _ 
  76.     "" & to_sql(Notice,"text") & "," & _ 
  77.     "" & to_sql(Region,"text") & ")" & _ 
  78.     ""
  79.     'response.write sql
  80.     on error resume next
  81.     cn.Execute(sql)
  82.     if err.Number <> 0 then
  83.         b_error = true
  84.     else
  85.         set rs = cn.Execute("SELECT @@IDENTITY")
  86.         RegionID = rs(0)
  87.         rs.Close
  88.     end if
  89.     on error goto 0
  90. end sub
  91. sub db_update_edit_luRegions
  92.     sql = "UPDATE luRegions SET " & _ 
  93.     "Image = " & to_sql(Image,"text") & ", " & _ 
  94.     "Notice = " & to_sql(Notice,"text") & ", " & _ 
  95.     "Region = " & to_sql(Region,"text") & " WHERE " & _ 
  96.     "RegionID = " & to_sql(RegionID,"number") & ""
  97.     'response.write sql
  98.     on error resume next
  99.     cn.execute(sql)
  100.     if err.number <> 0 then
  101.         b_error = true
  102.     end if
  103.     on error goto 0
  104. end sub
  105. sub db_delete_edit_luRegions
  106.     sql = "DELETE FROM luRegions" & _ 
  107.     " WHERE " & _ 
  108.     "RegionID = " & to_sql(RegionID,"number") & ""
  109.     'response.write sql
  110.     on error resume next
  111.     cn.Execute(sql)
  112.     if err.number <> 0 then
  113.         b_error = true
  114.     end if
  115.     on error goto 0
  116. end sub
  117. sub db_select_view_luRegions
  118.     view_luRegions_sql = "SELECT " & _ 
  119.     "Image, " & _ 
  120.     "Notice, " & _ 
  121.     "Region, " & _ 
  122.     "RegionID FROM luRegions" & _ 
  123.     ""
  124.     if request("sortby") <> "" AND inStr(lcase(view_luRegions_sql),"order by") = 0 then view_luRegions_sql = view_luRegions_sql + " ORDER BY " & request("sortby")
  125. end sub
  126. sub db_update_view_luRegions
  127.     sql = "UPDATE  SET " & _ 
  128.     "Image = " & to_sql(Image,"text") & ", " & _ 
  129.     "Notice = " & to_sql(Notice,"text") & ", " & _ 
  130.     "Region = " & to_sql(Region,"text") & ""
  131.     'response.write sql
  132.     on error resume next
  133.     cn.execute(sql)
  134.     if err.number <> 0 then
  135.         b_error = true
  136.     end if
  137.     on error goto 0
  138. end sub
  139. sub db_delete_view_luRegions
  140.     sql = "DELETE FROM " & _ 
  141.     ""
  142.     'response.write sql
  143.     on error resume next
  144.     cn.Execute(sql)
  145.     if err.number <> 0 then
  146.         b_error = true
  147.     end if
  148.     on error goto 0
  149. end sub
  150.  
  151. do_search = request("do_search")
  152. ''' request form keys
  153. RegionID = request("RegionID")
  154. ''' request action
  155. action = lcase(request("action"))
  156. ''' action case handler
  157. select case action
  158.  
  159. case "select_edit_luregions"
  160. '  select the requested key record from database
  161. if RegionID <> "" then
  162.     db_select_edit_luRegions
  163. else
  164.     b_error = true
  165.     error_list.add "edit_edit_luRegions", "Specify record to select."
  166. end if
  167.  
  168.  
  169. case "insert_edit_luregions"
  170. '  request form data and insert a new record into database
  171.  
  172. validate_edit_luregions
  173. if not b_error then
  174.     db_insert_edit_luregions
  175. end if
  176.  
  177.  
  178.  
  179. case "update_edit_luregions"
  180. '  request form data and update an existing database record
  181. validate_edit_luregions
  182. if not b_error then
  183. if RegionID <> "" then
  184.     db_update_edit_luregions
  185. else
  186.     b_error = true
  187.     error_list.add "update_edit_luregions", "Specify record to update."
  188. end if
  189. end if
  190.  
  191.  
  192. case "delete_edit_luregions"
  193. '  delete the requested key database record
  194. if RegionID <> "" then
  195.     db_delete_edit_luregions
  196.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  197. else
  198.     b_error = true
  199.     error_list.add "delete_edit_luregions", "Specify record to delete."
  200. end if
  201.  
  202.  
  203. case "update_view_luregions"'  request form data from edit grid to update existing database records
  204. '  this case is only created when a grid form's 'update' property is enabled
  205. validate_view_luregions
  206. if not b_error then
  207. if  then
  208.     db_update_view_luregions
  209. else
  210.     b_error = true
  211.     error_list.add "update_view_luregions", "Specify record to update."
  212. end if
  213. end if
  214.  
  215.  
  216. case "delete_view_luregions"'  request form data from edit grid to delete existing database records
  217. '  this case is only created when a grid form's 'update' property is enabled
  218. if  then
  219.     db_delete_view_luregions
  220.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  221. else
  222.     b_error = true
  223.     error_list.add "delete_view_luregions", "Specify record to delete."
  224. end if
  225.  
  226.  
  227. end select
  228.  
  229. '  no action was specified, so handle the default case(s)
  230. if RegionID <> "" then
  231.     db_select_edit_luregions
  232. end if
  233.  
  234. db_select_view_luregions
  235.  
  236. %>
  237.  
  238. This is the admin area for the ''luRegions'' lookup table. This table could be used to manage and orgranize information (links,conent,classifieds) by region.
  239. <P><br>
  240. <%
  241. display_errs
  242. display_msg
  243. %>
  244.  
  245. <table class='headerTable'>
  246. <tr>
  247. <td class='headerTD'>
  248. Regions Lookup
  249. </td>
  250. </tr>
  251. </table>
  252. <table  >
  253. <form name="edit_luRegions" action="luRegions.asp" method="GET" >
  254. <tr>
  255.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Image" class=fieldFont title="">Image</a></td>
  256.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Notice" class=fieldFont title="">Notice</a></td>
  257.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Region" class=fieldFont title="">Region</a></td>
  258. </tr>
  259. <tr>
  260.     <td class='dataTD' >
  261.         <input type=text  name="Image" size="" maxlength="50" value="<% =Image%>">
  262.     </td>
  263.     <td class='dataTD' >
  264.         
  265.         <textarea  name="Notice" rows='6' cols='50'><% =Notice%></textarea>
  266.         
  267.     </td>
  268.     <td class='dataTD' >
  269.         <input type=text  name="Region" size="" maxlength="35" value="<% =Region%>">
  270.     </td>
  271.         
  272.         <input type=hidden name="RegionID" value="<% =RegionID %>">
  273.         
  274. </tr>
  275. <tr>
  276.     <td align=right class=dataTD colspan=4>
  277.     <% if RegionID = "" then %><input type=submit name=insert_button value=insert> <% end if %>
  278.     <% if RegionID <> "" then %><input type=submit name=delete_button value=delete onclick="document.edit_luRegions.action.value = 'delete_edit_luRegions'"> <% end if %>
  279.     <% if RegionID <> "" then %><input type=submit name=update_button value=update><% end if %>
  280.     </td>
  281. <input type=hidden name="action" value="<% if RegionID <> "" then %>update<% else %>insert<%end if %>_edit_luRegions"></tr>
  282.  
  283. </form>
  284. </table>
  285.  
  286.  
  287. <%
  288.  
  289. page_no = request("page_no")
  290. if page_no = "" then page_no = 1
  291.  
  292. if view_luRegions_sql <> "" then
  293.     cmd.CommandText = view_luRegions_sql
  294.     rs.Filter = ""
  295.     rs.CursorLocation = 3
  296.     rs.CacheSize = 5
  297.     rs.Open cmd
  298.     if not rs.EOF then
  299.             rs.MoveFirst
  300.             max_count = cInt(rs.PageCount)
  301.             num_recs = rs.RecordCount
  302.             rs.AbsolutePage = page_no
  303.             results = true
  304.     else
  305.         results = false
  306.         rs.Close
  307.     end if
  308. else
  309.     results = false
  310. end if
  311. rec_count = 0
  312.  
  313. %>
  314.  
  315. <table class='headerTable'>
  316. <tr>
  317. <td class='headerTD'>
  318. luRegions
  319. </td>
  320. </tr>
  321. </table>
  322. <%
  323.  
  324. if results = true then
  325.  
  326. %>
  327.  
  328. <table  >
  329. <form name="view_luRegions" action="luRegions.asp" method="GET" >
  330. <tr>
  331.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Image" class=fieldFont title="">Image</a></td>
  332.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Notice" class=fieldFont title="">Notice</a></td>
  333.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Region" class=fieldFont title="">Region</a></td>
  334.     <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=RegionID" class=fieldFont title="">RegionID</a></td>
  335. </tr>
  336. <%
  337.  
  338. do while not rs.EOF
  339.  
  340. ':: read db record
  341. on error resume next
  342. Image = rs("Image")
  343. Notice = rs("Notice")
  344. Region = rs("Region")
  345. RegionID = rs("RegionID")
  346. on error goto 0
  347.  
  348. %>
  349. <tr>
  350.     <td class='dataTD' >
  351.         <input type=text  name="Image" size="" maxlength="50" value="<% =Image%>">
  352.     </td>
  353.     <td class='dataTD' >
  354.         
  355.         <textarea  name="Notice" rows='6' cols='50'><% =Notice%></textarea>
  356.         
  357.     </td>
  358.     <td class='dataTD' >
  359.         <input type=text  name="Region" size="" maxlength="35" value="<% =Region%>">
  360.     </td>
  361.     <td class='dataTD' >
  362.         <a href="luRegions.asp?RegionID=<%=RegionID%>"><% =RegionID %></a>
  363.     </td>
  364. </tr>
  365. <%
  366.  
  367. rs.MoveNext
  368. rec_count = rec_count + 1
  369. loop
  370. rs.Close
  371.  
  372. %>
  373. <tr class=formtr>
  374.     <td class=dataTD align=right colspan=4>
  375.     <input type=submit name=update_button value=update>
  376.     </td>
  377. </tr>
  378. <input type=hidden name="action" value="update_view_luregions">
  379.  
  380. </form>
  381. </table>
  382. <%
  383.  
  384. else
  385.  
  386. %>
  387.  
  388.     
  389.  
  390. <%
  391.  
  392. end if
  393.  
  394. %>
  395.  
  396.  
  397.  
  398.  
  399.  
  400. <%
  401. ':: assure that any db resources are freed
  402. on error resume next
  403. rs.Close
  404. set rs = NOTHING
  405. cn.Close
  406. set cn = NOTHING
  407. user_cn.Close
  408. set user_cn = NOTHING
  409. on error goto 0
  410. %>
  411.